home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_d / mdexp12.zip / UNIT1.PAS < prev    next >
Pascal/Delphi Source File  |  1996-01-04  |  1KB  |  54 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, DBGrids, Grids, Outline, Mdexplor, ExtCtrls, Connect, DB,
  8.   DBTables, StdCtrls;
  9.  
  10. type
  11.   TDemoForm1 = class(TForm)
  12.     DataSource1: TDataSource;
  13.     Table1: TTable;
  14.     DataSource2: TDataSource;
  15.     Table2: TTable;
  16.     Connections1: TConnections;
  17.     Table3: TTable;
  18.     DataSource3: TDataSource;
  19.     MDExplorer1: TMDExplorer;
  20.     DBGrid1: TDBGrid;
  21.     Table1CustNo: TFloatField;
  22.     Table1Company: TStringField;
  23.     Table2OrderNo: TFloatField;
  24.     Table2CustNo: TFloatField;
  25.     Table3OrderNo: TFloatField;
  26.     Table3ItemNo: TFloatField;
  27.     Table3PartNo: TFloatField;
  28.     Table3Qty: TIntegerField;
  29.     Table2PO: TStringField;
  30.     Table2AmountPaid: TCurrencyField;
  31.     Panel1: TPanel;
  32.     Label1: TLabel;
  33.     Connections2: TConnections;
  34.     procedure FormCreate(Sender: TObject);
  35.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  40.  
  41. var
  42.   DemoForm1: TDemoForm1;
  43.  
  44. implementation
  45.  
  46. {$R *.DFM}
  47.  
  48. procedure TDemoForm1.FormCreate(Sender: TObject);
  49. begin
  50. MDExplorer1.Active := True;
  51. end;
  52.  
  53. end.
  54.